home *** CD-ROM | disk | FTP | other *** search
/ La Bible Des... Jeux / La Bible des... Jeux.iso / Les Sharewares / Educatifs / A Panda is for Life... / Musical Panda / Musical Panda.6 / 00136.ls < prev    next >
Encoding:
Text File  |  1995-12-03  |  909 b   |  31 lines
  1. on mouseDown
  2.   global CBOX
  3.   set whichCursor to the number of cast "fist"
  4.   cursor([whichCursor, whichCursor + 1])
  5.   repeat while the stillDown
  6.     set the castNum of sprite CBOX to the number of cast "close-box-flash"
  7.     updateStage()
  8.     set the castNum of sprite CBOX to the number of cast "close-box"
  9.     updateStage()
  10.   end repeat
  11.   set the castNum of sprite CBOX to the number of cast "close-box"
  12.   set whichCursor to the number of cast "hand"
  13.   cursor([whichCursor, whichCursor + 1])
  14. end
  15.  
  16. on mouseUp
  17.   global MUSIC_CHANNEL
  18.   if the mouseCast = the number of cast "close-box" then
  19.     puppetSound("Zzub")
  20.     repeat while the volume of sprite MUSIC_CHANNEL > 0
  21.       set the volume of sprite MUSIC_CHANNEL to the volume of sprite MUSIC_CHANNEL - 25
  22.     end repeat
  23.     repeat with whichChannel = 1 to 48
  24.       puppetSprite(whichChannel, 0)
  25.     end repeat
  26.     go("end")
  27.   else
  28.     nothing()
  29.   end if
  30. end
  31.